home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / hbxmas pt1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  12KB  |  232 lines
  1. 100 poke53275,0
  2. 110 ifathen140
  3. 120 goto170
  4. 140 ifa<3thena=a+1:loadna$+mid$(str$(a),2),8,1
  5. 150 a=0:a=0:goto200
  6. 170 bc=53280:sc=53281:pokebc,0:pokesc,0:ad=51715:dimw%(255)
  7. 180 bo$="[153] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157][159] ":goto520
  8. 200 onnpgoto210,630,1650
  9. 210 ::poke56576,2:poke53272,120:poke53270,peek(53270)or16:poke53265,peek(53265)or32:return
  10. 260 ::poke53270,peek(53270)and239:poke53272,20:poke53265,27:poke56576,3:return
  11. 310 ::fori=0to7:poke843,0+i:poke844,96:sys830:next:return
  12. 330 ::print"[147]":pokebc,0:pokesc,14:poke53272,21:pokev+21,0:sysad+6,1,2
  13. 360 pokep0,244:pokev+39,9:pokev+23,131:pokev+28,96:pokev+37,7:pokev+38,9
  14. 370 pokep7,244:pokev+46,9:pokev+14,150:pokev+15,160
  15. 380 pokep1,243:pokev+40,5:pokev+2,245:pokev+3,184:pokev+29,2:pokev,100:pokev+1,190:pokev+21,131:return
  16. 410 ::print"[147]":pokebc,0:pokesc,14:poke53272,21:pokev+21,0:sysad+6,1,1:pokev+37,7:pokev+38,9:pokev+28,96
  17. 460 pokep0,243:pokev+39,5:pokev+0,50:pokev+1,220:pokep1,243:pokev+40,5:pokev+2,100:pokev+3,210
  18. 480 pokep2,243:pokev+41,5:pokev+4,180:pokev+5,230:pokep3,243:pokev+42,5:pokev+6,250:pokev+7,225
  19. 500 pokev+21,15:return
  20. 520 poke53265,11:gosub260:poke53272,23:gosub4070:poke198,0:wait198,1:poke198,0
  21. 530 gosub4260:print"  [200]uggy [194]ear was a [212]eddy [194]ear"
  22. 535 print"who spent all of last year at"
  23. 537 print"the [212]oy [211]tore.
  24. 550 [153]"  (NULL)oor little left$uggy wanted to"
  25. 560 [153]"find a home with a nice little"
  26. 570 [153]"boy or girl before lenhristmas,"
  27. 580 [153]"but he was way up on the top"
  28. 590 [153]"shelf where people couldn't"
  29. 595 [153]"notice him.  "[199](34)"right$'ll (NULL)val(NULL)val(NULL) find a"
  30. 597 [153]"home this way,"[199](34)" he thought."
  31. 610 d[178]30:[141]3920:[151]53265,27:na$[178]"toy store":np[178]2:[137]140
  32. 630 [151]53265,27:[141]210:[151]sc,15:[151]bc,15:::v[178]53248:[151]24568,111:[151]v[170]39,9:[151]v,225:[151]v[170]1,71::
  33. 670 [151]24569,105:[151]v[170]40,5:[151]v[170]2,190:[151]v[170]3,164:[151]v[170]28,6:[151]v[170]37,7:[151]v[170]38,9::
  34. 690 [151]24570,104:[151]v[170]41,6:[151]v[170]4,190:[151]v[170]5,185:[151]v[170]21,7:d[178]10:[141]3920::
  35. 720 [158]878:[141]260:[151]v[170]21,0:[151]53272,23
  36. 730 [141]4260
  37. 740 [153]"  left$uggy thought, "[199](34)"(NULL)hen it gets
  38. 750 print"dark, [201]'ll slip out of this"
  39. 760 print"store and see what it's like"
  40. 765 print"outside!"chr$(34)
  41. 770 d=20:gosub3920:print"[147]"
  42. 780 sys913:gosub210:pokev+21,1:poke53280,0:poke53281,0:print"[147]":d=5:gosub3920::
  43. 820 s0=24568:s1=24569:s2=24570:s3=24571:s4=24572:s5=24573:s6=24574:s7=24575
  44. 830 p0=2040:p1=2041:p2=2042:p3=2043:p4=2044:p5=2045:p6=2046:p7=2047
  45. 840 pokes0,109:fort=1to500:next:pokes0,110:pokev+1,90:fort=1to500:next:pokes0,109:pokev+1,110:fort=1to500:next
  46. 870 pokes0,109:pokev+1,130:fort=1to500:next:pokes0,110:pokev+1,150:fort=1to500:next
  47. 890 pokes0,109:pokev+1,170:fort=1to500:next:pokes0,110:pokev+1,186:fort=1to500:next:x=225:fori=1to9
  48. 920 pokes0,103:pokev,x:fort=1to300:next:x=x-10:pokes0,102:pokev,x:fort=1to300:next:x=x-10:next::
  49. 980 pokes0,110:pokev+1,170:fort=1to500:next:pokes0,109:pokev+1,165:fort=1to500:next
  50. 1000 pokes0,110:pokev+1,150:fort=1to500:next:pokes0,109:pokev+1,150:fort=1to500:next:gosub310::
  51. 1030 pokev+21,0:print"[147]":gosub260:poke53281,0:sys860:pokep7,245:pokev+46,1:pokev+14,100:pokev+15,100
  52. 1050 pokep6,243:pokev+45,5:pokev+12,50:pokev+13,170:pokev+23,97:pokev+29,64
  53. 1060 pokep5,244:pokev+44,9:pokev+10,150:pokev+11,170:pokev+28,33:pokev+37,0:pokev+38,5
  54. 1080 pokep2,249:pokev+41,8:pokev+16,4:pokev+4,50:pokev+5,195:pokep1,243:pokev+40,5:pokev+2,120:pokev+3,195
  55. 1100 fort=1to50:poke214,rnd(ti)*16+1:print"[145]"spc(rnd(ti)*39+1)".":next:print"
  56. 1110 [151]p0,244:[151]v[170]39,9:[151]v[170]0,255:[151]v[170]1,195:[151]v[170]21,229:[151]53272,23
  57. 1130 [151]214,17:[153]""[163]24)[199](142)"contstep   (NULL)":[153][163]24)"verify # # 
  58. 1150 w$="   so huggy ran off that ":w$=w$+"night, not knowing where he
  59. 1170 w$[178]w$[170]"was going, or what might happen.  it was dark and cold but his 
  60. 1180 w$=w$+"100% acrylic fur kept him warm.":pokev+21,231:gosub3960:gosub4060:gosub3990:sys860
  61. 1210 forx=305to0step-5:pokep2,248:fort=1to50:next:ifx<256thenpokev+16,0:pokev+4,x
  62. 1240 ifx>255thenpokev+16,4:pokev+4,x-255
  63. 1250 pokep2,249:fort=1to100:next:next:pokev+21,229
  64. 1280 gosub4060:w$="  but a hungry wolf was on the prowl,
  65. 1290 w$[178]w$[170]" searching for any scraps of food in the dead of winter.  the
  66. 1300 w$=w$+" wolf was too hungry to realize that wolves don't eat teddy bears!
  67. 1310 [141]3960:[141]3990:[151]v[170]21,231:[151]v[170]41,12:[129]x[178]305[164]0[169][171]5:[151]p2,247:[129]t[178]1[164]50:[130]
  68. 1340 [139]x[179]256[167][151]v[170]16,0:[151]v[170]4,x
  69. 1350 [139]x[177]255[167][151]v[170]16,4:[151]v[170]4,x[171]255
  70. 1360 [151]p2,246:[129]t[178]1[164]50:[130]:[130]:d[178]5:[141]3920:[153]"load":[158]860:[151]v[170]0,100:[151]v[170]2,30:[151]v[170]10,50:[151]v[170]12,250
  71. 1400 [129]t[178]1[164]50:[151]214,[187](ti)[172]16[170]1:[153]"on"[166][187](ti)[172]39[170]1)".";:[130]:[153]"
  72. 1410 w$="  fortunately huggy heard the wolf scrambling toward him in time to ge
  73. 1420 w$[178]w$[170]"t away.   gosh!  wolves are bigger than dogs!":[141]3960:[141]4060
  74. 1430 [141]3990:[151]v[170]41,8:[129]x[178]310[164]0[169][171]10:[151]p2,248:[129]t[178]1[164]5:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]4,x
  75. 1460 [139]x[177]255[167][151]v[170]16,4:[151]v[170]4,x[171]255
  76. 1470 [151]p2,249:[130]:::[151]v[170]41,12:[129]x[178]310[164]0[169][171]10:[151]p2,247:[129]t[178]1[164]5:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]4,x
  77. 1520 [139]x[177]255[167][151]v[170]16,4:[151]v[170]4,x[171]255
  78. 1530 [151]p2,246:[129]t[178]1[164]5:[130]:[130]:::d[178]5:[141]3920:[151]53272,23:[151]v[170]21,0:
  79. 1560 [141]4260:[153]"  "[199](34)"(NULL)y only chance is to find a"
  80. 1570 [153]"tall tree and climb it,"[199](34)" left$uggy
  81. 1580 print"thought.  "chr$(34)"[201] don't think wolves"
  82. 1590 print"can climb trees."chr$(34)
  83. 1600 print"  [200]uggy [194]ear was starting to get
  84. 1610 [153]"tired and the wolf was gaining.
  85. 1620 print"[198]inally he spotted a tall enough
  86. 1630 [153]"tree in the distance and ran"
  87. 1635 [153]"toward it."
  88. 1640 d[178]20:[141]3920:na$[178]"tree":np[178]3:[137]140
  89. 1650 [151]53265,27:[141]210:[151]sc,6:[151]s7,97:[151]v[170]15,100:[151]v[170]21,128::
  90. 1655 [151]24551,95
  91. 1670 [151]53281,5:[153]"load":[151]53281,0:[151]v[170]41,8:[151]v[170]5,195:[151]v[170]21,132:[129]x[178]305[164]210[169][171]5
  92. 1690 [151]s2,103:[129]t[178]1[164]10:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]4,x
  93. 1710 [139]x[177]255[167][151]v[170]16,4:[151]v[170]4,x[171]255
  94. 1720 [151]s2,102:[129]t[178]1[164]10:[130]:[130]:::[129]y[178]195[164]85[169][171]10:[151]s2,110:[129]t[178]1[164]10:[130]:[151]v[170]5,y
  95. 1780 [151]s2,109:[129]t[178]1[164]10:[130]:[130]:::[151]v[170]42,11:[151]v[170]7,190:[151]v[170]21,140:[129]x[178]305[164]230[169][171]5
  96. 1820 [151]s3,99:[129]t[178]1[164]10:[130]:[139]x[179]256[167][151]v[170]16,0:[151]v[170]6,x
  97. 1840 [139]x[177]255[167][151]v[170]16,8:[151]v[170]6,x[171]255
  98. 1850 [151]s3,98:[129]t[178]1[164]10:[130]:[130]:d[178]5:[141]3920:[158]878:[153]"load":[151]v[170]21,0:[153]"loadclr":[141]260:[151]53272,23
  99. 1880 [141]4260:[153]"  (NULL)oon the hungry wolf grew"
  100. 1890 [153]"tired of waiting for left$uggy peekear"
  101. 1900 [153]"to come down.  left$e left to look"
  102. 1910 [153]"for someone easier to catch."
  103. 1920 d[178]20:[141]3920:[153]"load":[158]913:[151]v[170]15,50:[151]v[170]21,140:[141]210:::[151]v[170]7,195:[129]x[178]230[164]0[169][171]5
  104. 1960 [151]s3,99:[129]t[178]1[164]30:[130]:[151]v[170]6,x:[151]s3,98:[129]t[178]1[164]30:[130]:[130]:[153]"load":[151]v[170]21,0:[141]260:[151]53272,23
  105. 2000 [141]4260:[153]"  left$uggy peekear was getting pretty
  106. 2010 print"tired after holding onto the"
  107. 2020 print"tree for hours.  [200]e decided to"
  108. 2030 print"climb down before he fell asleep"
  109. 2040 print"up there and hurt himself."
  110. 2050 d=20:gosub3920:print"[147]":sys913:gosub210:pokev+21,132:::fory=100to195step5:pokes2,109:fort=1to50:next:pokev+5,